def fmap[A, B](f: A => B)(g: R => A): (R => B)